perm filename IN3[MU5,LCS] blob sn#271057 filedate 1977-03-18 generic text, type T, neo UTF8
00100	SRT 25600; SET SAMPLING RATE TO 25600                                   00100300 
00200	INS 0 1;    INSTRUMENT 1                                                00100400 
00300	OSC P4 P8 B4 F1;                                                        00100410 
00400	MLT P5 P6 B3;                                                           00100420 
00500	OSC B3 P8 B3 F2; RAMP                                                   00100500 
00600	MLT P7 P6 B5; P7 IS BASIC M.I., P5 = AMOUNT TO BE ADDED.                00100505 
00700	AD2 B3 B5 B3;                                                           00100507 
00800	OSC B3 P6 B3 F3; MODULATOR, P6 CONVTS AS FREQ.(MOD. FREQ.)              00100510 
00900	AD2 P3 B3 B3; ADD IN CENTER FREQ.                                       00100555 
01000	OSC B4 B3 B4 F3;                                                        00100600 
01100	OUT B4 B1/END;          ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!         00100700 
01200	                                                                        00100800 
01300	GEN 0 1 1 .01 0 .99 25;                                                 00101400 
01400	.99 400  0 511*; GEN INPUT MUST ALWAYS START NEW LINE!                  00101500 
01500	GEN 0 2 3 1 1*; F3 , 1 HARMONIC                                         00101600 
01600	GEN 0 3 2 0 1*; F2 PUTS LINE FROM 0 TO 1 IN 511 STEPS                   00101700 
01700	                                                                        00101800 
01800	SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP.        00101900 
01900	      BLANK CARDS MAY COME INSTEAD OF INST NAMES OR                     00102000 
02000	      PARAM #S AFTER THIS POINT.                                        00102100 
02100	                                                                        00103210 
02200	WUVV 0 1 2/P2  1/P4 2000;                                               00103300 
02300	P6 200 FREQ/P5 NUM/20/10*/P7 NUM/0/10*;                                 00103510 
02400	P3 NOTES/C2/A1*/END;                                                    00103610 
02500	RUN;                                                                    00103655